home *** CD-ROM | disk | FTP | other *** search
/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / game_cga / jetset / ajetoff.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-03-27  |  9.6 KB  |  403 lines
  1. 1  REM PROGRAM NAME JETSET
  2. 2  REM IFR FLITE SIMULATOR, BOEING 747
  3. 3  REM CREATED 6-28-81 BY GENE SZYMANSKI
  4. 4  REM REVISED 2-28-82
  5. 5  KEY OFF : DEF SEG=&H40 : POKE &H17,PEEK(&H17) OR 96
  6. 9  REM CONVERTED TO IBM PC BASIC ON 10-30-82
  7. 45  REM VOR STATION FREQS TABLE
  8. 46  DIM VF(15)
  9. 47  VF(0)=115.9 : VF(1)=113.8 : VF(2)=112.7
  10. 48  VF(3)=117.7 : VF(4)=117.8 : VF(5)=112.2
  11. 49  VF(6)=117.4 : VF(7)=115.5 : VF(8)=116.4
  12. 50  VF(9)=113.6 : VF(10)=116.9 : VF(11)=117
  13. 51  VF(12)=112.3 : VF(13)=117.9 : VF(14)=115.7
  14. 52  VF(15)=112.8
  15. 62  REM ILS CONSTANTS FOR AIRPORTS
  16. 63  DIM VG(15,1)
  17. 64  VG(0,0)=238 : VG(0,1)=28
  18. 66  VG(2,0)=240 : VG(2,1)=30
  19. 69  VG(5,0)=90 : VG(5,1)=217
  20. 71  VG(7,0)=299 : VG(7,1)=164
  21. 72  VG(8,0)=166 : VG(8,1)=42
  22. 79  VG(15,0)=341 : VG(15,1)=75
  23. 100  REM VOR STATION COORDINATES TABLE
  24. 101  DIM VP(15,1)
  25. 102  VP(0,0)=40.633 : VP(0,1)=73.773
  26. 103  VP(1,0)=40.202 : VP(1,1)=74.495
  27. 104  VP(2,0)=42.358 : VP(2,1)=70.993
  28. 105  VP(3,0)=41.282 : VP(3,1)=70.027
  29. 106  VP(4,0)=42.743 : VP(4,1)=73.802
  30. 107  VP(5,0)=46.412 : VP(5,1)=84.315
  31. 108  VP(6,0)=38.35 : VP(6,1)=81.77
  32. 109  VP(7,0)=40.917 : VP(7,1)=77.993
  33. 110  VP(8,0)=42.928 : VP(8,1)=78.647
  34. 111  VP(9,0)=41.358 : VP(9,1)=82.162
  35. 112  VP(10,0)=42.967 : VP(10,1)=83.742
  36. 113  VP(11,0)=44.555 : VP(11,1)=88.195
  37. 114  VP(12,0)=41.547 : VP(12,1)=88.318
  38. 115  VP(13,0)=39.495 : VP(13,1)=76.978
  39. 116  VP(14,0)=42.048 : VP(14,1)=83.458
  40. 117  VP(15,0)=39.637 : VP(15,1)=75.303
  41. 155  DATA FUEL,LBS,%,VHF,MHZ,THRUST,MAX,IDLE,REV
  42. 160  DATA PITCH," +"," -",DEG,FLAPS,UP,DWN,WHEELS,UP,MID,DOWN
  43. 165  DATA COMPASS,AIRSPEED,KTS," VERT",SPEED,FPM
  44. 170  DATA ALTITUDE,FEET,CLOCK
  45. 10000  REM BEGIN TAKEOFF MODULE HERE
  46. 10020  CLS : CLEAR ,,1000: RANDOMIZE (VAL(MID$(TIME$,7,2))*10)
  47. 10025  KR=57.2958
  48. 10030  DIM XM(13),WM(13)
  49. 10031  DIM P$(31)
  50. 10035  DATA 37,35,32,30,27,25,22,20,17,15,12,10,7,5
  51. 10040  DATA 6,11,16,21,26,31,36,41,46,51,56,61,66,71
  52. 10041  FOR I=0 TO 28:READ P$(I):NEXT
  53. 10045  FOR I=0 TO 13:READ XM(I):NEXT
  54. 10050  FOR I=0 TO 13:READ WM(I):NEXT
  55. 10055  M$(1)="_":M$(2)="_":M$(3)="_"
  56. 10060  DIM XE(13),WE(13)
  57. 10065  K1=29:K2=23
  58. 10070  FOR I=0 TO 13
  59. 10075  XE(I)=K1:WE(I)=K2
  60. 10080  K1=K1-2:K2=K2+4
  61. 10085  NEXT I
  62. 10090  IO=40
  63. 10095  RN=RND(0)
  64. 10100  RS=1:IF RN<0.5 THEN RS=-1
  65. 10105  W1=75:IF RS=-1 THEN W1=255
  66. 10110  W2=INT(20*RND(1)+1) :W3=RS*W2
  67. 10115  DIM XL(14),XR(14)
  68. 10120  J=31:K=49
  69. 10125  FOR I=0 TO 14
  70. 10130  XL(I)=J:XR(I)=K
  71. 10135  J=J-2:K=K+2
  72. 10140  NEXT I
  73. 10145  DATA FUEL,LBS,%,VHF,MHZ,THRUST,MAX,IDLE,REV
  74. 10150  DATA PITCH," +"," -",DEG,FLAPS,UP,DOWN,WHEELS,UP,MID,DOWN
  75. 10155  DATA COMPASS,AIRSPEED,KTS," VERT",SPEED,FPM
  76. 10160  DATA ALTITUDE,FEET,CLOCK,BRAKE,SET,REL
  77. 10170  FOR I=0 TO 31:READ P$(I):NEXT I
  78. 10175  DIM S$(25)
  79. 10180  FOR I=1 TO 25:S$(I)=SPACE$(I):NEXT
  80. 10185  FOR I=0 TO 9:F(I)=0:NEXT
  81. 10190  REM INIT VARIABLES FOR TAKEOFF MODE
  82. 10195  FU=200000:FP=0:CC=75:ZZ=0:RC=0:AL=0
  83. 10200  MZ=77:TR=6:FL=2:FA=0:WH=13:IX=40:HY=9:BR=11:BK=11
  84. 10205  AB=0
  85. 10215  LOCATE 9,18:PRINT"UNITED 312    CLEARED AS FILED"
  86. 10217  PRINT:PRINT
  87. 10218  PRINT"        SURFACE WINDS VARIABLE, GUSTING TO 15."
  88. 10219  PRINT"        MINIMUM CEILING CONDITIONS ARE IN EFFECT."
  89. 10230  PRINT"        SKY CONDITIONS AT 20,000 SCATTERED."
  90. 10235  PRINT"                       AT 30,000 BROKEN."
  91. 10240  PRINT:PRINT
  92. 10245  PRINT"UPON TAKEOFF, MAINTAIN HEADING 075 TO 3000, THEN PROCEED AS FILED."
  93. 10248  PRINT:PRINT:PRINT"                STAND BY FOR TAKEOFF CLEARANCE"
  94. 10255  TQ=7000:GOSUB 11535
  95. 10260  CLS
  96. 10265  LOCATE 11,18:PRINT"UNITED 312":PRINT:PRINT
  97. 10270  PRINT"YOU ARE CLEARED FOR TAKEOFF AT 0800 HOURS"
  98. 10275  TQ=3000:GOSUB 11535
  99. 10280  CLS
  100. 10285  TIME$="07:59:00":CLS
  101. 10290  TV$=TIME$:GOSUB 11555 :TL=TD
  102. 10295  GOSUB 10330
  103. 10300  GOSUB 10410
  104. 10305  GOSUB 10480
  105. 10310  PRINT "";:GOSUB 10615
  106. 10315  K$=INKEY$:IF LEN(K$)=0 GOTO 10325
  107. 10320  GOSUB 10790
  108. 10325  GOTO 10945
  109. 10330  REM DISPLAY PANEL HEADERS ONLY
  110. 10335  LOCATE 1,4:PRINT P$(0);S$(4);P$(5);S$(3);P$(9);S$(3);S$(6);S$(3);P$(20)
  111. 10340  LOCATE 11,60:PRINT P$(13);S$(3);P$(16);S$(2);P$(29)
  112. 10345  LOCATE 12,62:PRINT P$(14);S$(6);P$(14);S$(6);P$(30)
  113. 10350  LOCATE 14,62:PRINT P$(15);S$(4);P$(15);S$(4);P$(31)
  114. 10352  IF F(9)=1 GOTO 10405
  115. 10355  LOCATE 2,14:PRINT P$(6);S$(6);P$(10);S$(6)
  116. 10360  LOCATE 2,69:PRINT P$(28)
  117. 10365  LOCATE 3,2:PRINT P$(1);S$(4);P$(2);S$(21);S$(3);S$(13);P$(23)
  118. 10370  LOCATE 4,23:PRINT P$(11);S$(13);P$(21);S$(2);P$(24);S$(2);P$(26)
  119. 10375  LOCATE 5,1:PRINT P$(3)
  120. 10380  LOCATE 6,40:PRINT P$(22);S$(6);P$(25);S$(5);P$(27)
  121. 10385  LOCATE 7,1:PRINT P$(4);S$(10);P$(7);S$(3);P$(12);S$(7)
  122. 10390  LOCATE 8,14:PRINT P$(8)
  123. 10395  FOR Y=2 TO 8:LOCATE Y,13:PRINT CHR$(196):NEXT
  124. 10400  FOR Y=2 TO 4:LOCATE Y,22:PRINT CHR$(196):NEXT
  125. 10405  RETURN
  126. 10410  REM DISPLAY HORIZON LINE
  127. 10415  IF F(9)=0 GOTO 10430
  128. 10420  LOCATE 10,1:PRINT SPACE$(80);
  129. 10425  IF HY=20 GOTO 10440
  130. 10430  LOCATE (HY+1),1:PRINT STRING$(80,"_")
  131. 10435  RETURN
  132. 10440  OH=9:HY=10
  133. 10445  FOR I=HY TO 22
  134. 10450  LOCATE (OH+1),1:PRINT SPACE$(80);
  135. 10455  LOCATE (I+1),1:PRINT STRING$(80,"_");
  136. 10460  OH=I
  137. 10465  NEXT I
  138. 10470  LOCATE 24,(IO+1):PRINT" ";
  139. 10475  RETURN
  140. 10480  REM DISPLAY RUNWAY
  141. 10485  IF F(4)=1 GOTO 10525
  142. 10490  S=10:X=29
  143. 10495  FOR Y=11 TO 23
  144. 10500  LOCATE Y,(X+1):PRINT".";SPACE$(S);" ";SPACE$(S);".";
  145. 10505  X=X-2:S=S+2
  146. 10510  NEXT
  147. 10515  S$=S$(13)
  148. 10520  RETURN
  149. 10525  REM PRINTS RUNWAY GRAPHICS
  150. 10530  IF N>3 GOTO 10600
  151. 10535  LOCATE (OY+1),(OX+1):PRINT SPACE$(WM);
  152. 10540  LOCATE (NY+1),(NX+1):PRINT MK$;
  153. 10545  OY=NY:OX=NX
  154. 10550  WM=FW
  155. 10555  RETURN
  156. 10560  REM ENTRY WHEN SHIP IN FINAL ZONE
  157. 10565  LOCATE (OY+1),(OX+1):PRINT SPACE$(WM):IF F(9)=1 THEN RETURN
  158. 10570  FOR I=11 TO (NY-1+1)
  159. 10575  LOCATE I,(XE(J)+1):PRINT SPACE$(WE(J))
  160. 10580  NEXT I
  161. 10585  IF N>4 THEN RETURN
  162. 10590  LOCATE (NY+1),(NX+1):PRINT MK$;
  163. 10595  RETURN
  164. 10600  IF F(2)=1 GOTO 10560 ELSE F(2)=1
  165. 10605  FOR I=11 TO 14:LOCATE I,60:PRINT SPACE$(21):NEXT
  166. 10610  GOTO 10560
  167. 10615  REM DISPLAY INSTRUMENT READINGS
  168. 10620  YP=1:XP=0:F$="######":V1=FU:GOSUB 11600
  169. 10625  YP=1:XP=7:F$="###":V1=FP:GOSUB 11600
  170. 10630  YP=1:XP=39:V1=CC:GOSUB 11600
  171. 10635  YP=4:XP=39:V1=ZZ:GOSUB 11600
  172. 10640  YP=4:XP=46:F$="######":V1=RC:GOSUB 11600
  173. 10645  YP=4:XP=55:F$="##,###":V1=AL:GOSUB 11600
  174. 10650  YP=5:XP=0:F$="###":V1=MZ:GOSUB 11600
  175. 10655  REM DISPLAY THRUST
  176. 10660  FOR I=2 TO 8
  177. 10665  LOCATE I,12:COLOR 0,7:PRINT" "
  178. 10670  NEXT
  179. 10675  LOCATE (TR+1),12:PRINT">";
  180. 10680  REM DISPLAY PITCH
  181. 10685  FOR I=2 TO 4:LOCATE I,21:COLOR 0,7:PRINT" ":NEXT
  182. 10690  LOCATE (FL+1),21:PRINT">"
  183. 10695  F$="+###"
  184. 10700  YP=5:XP=20:V1=FA:GOSUB 11600
  185. 10705  REM DISPLAY FLAPS
  186. 10710  IF F(2)=1 GOTO 10760
  187. 10715  FOR I=12 TO 14:LOCATE I,60:COLOR 0,7:PRINT" ":NEXT
  188. 10720  LOCATE (BR+1),60:PRINT">"
  189. 10725  REM WHEELS
  190. 10730  FOR I=12 TO 14:LOCATE I,68:COLOR 0,7:PRINT" ":NEXT
  191. 10735  LOCATE (WH+1),68:PRINT">"
  192. 10740  REM BRAKES
  193. 10745  FOR I=12 TO 14:LOCATE I,76:COLOR 0,7:PRINT" ":NEXT
  194. 10750  LOCATE (BK+1),76:PRINT">"
  195. 10755  COLOR 7,0
  196. 10760  REM DISPLAY RUNWAY ALIGNMENT INDEX
  197. 10765  IF F(9)=1 THEN RETURN
  198. 10770  LOCATE 24,(IO+1):PRINT" ";
  199. 10775  LOCATE 24,(IX+1):PRINT CHR$(24);
  200. 10780  IO=IX
  201. 10785  RETURN
  202. 10790  REM KEY POLL SUBRTN
  203. 10795  IF K$="F" THEN KK=1:GOTO 10820
  204. 10800  IF K$="," OR K$="." THEN KK=2:GOTO 10820
  205. 10805  IF K$="B" THEN KK=3:GOTO 10820
  206. 10810  IF K$="8" OR K$="2" THEN KK=4:GOTO 10820
  207. 10815  IF K$="L" THEN KK=5:GOTO 10820
  208. 10817  IF K$="W" THEN KK=6:GOTO 10820
  209. 10818  IF K$="S" THEN KK=7:GOTO 10820
  210. 10820  ON KK GOSUB 10830,10845,10865,10880,10925,10941,10826
  211. 10825  RETURN
  212. 10826  REM THRUST KEY
  213. 10827  IF F(7)=1 AND BR=11 THEN TR=4
  214. 10829  RETURN
  215. 10830  REM THRUST KEY (INCREASE)
  216. 10831  IF F(7)=1 THEN RETURN
  217. 10835  IF F(0)=0 THEN RETURN
  218. 10840  F(1)=1:TR=1:RETURN
  219. 10845  REM RUDDER KEYS
  220. 10846  IF F(7)=1 THEN RETURN
  221. 10850  IF ZZ<=50 THEN RETURN
  222. 10855  IF K$="," THEN CC=CC-1 ELSE CC=CC+1
  223. 10860  RETURN
  224. 10865  REM BRAKES
  225. 10870  IF F(0)=1 THEN RETURN
  226. 10875  F(0)=1:BK=13:RETURN
  227. 10880  REM PITCH
  228. 10881  IF F(7)=1 THEN RETURN
  229. 10885  IF ZZ<=50 THEN RETURN
  230. 10890  FD=-10:IF K$=CHR$(50) THEN FD=10
  231. 10895  FA=FA+FD
  232. 10900  IF FA>60 THEN FA=60
  233. 10905  IF FA<-60 THEN FA=-60
  234. 10910  IF FA>0 THEN FL=1:RETURN
  235. 10915  IF FA=0 THEN FL=2:RETURN
  236. 10920  FL=3:RETURN
  237. 10925  REM FLAPS
  238. 10926  IF F(7)=1 AND WH=11 THEN BR=11:RETURN
  239. 10930  IF F(3)=1 THEN RETURN
  240. 10935  IF F(3)=0 THEN F(3)=1:BR=13: RETURN
  241. 10940  RETURN
  242. 10941  REM WHEELS
  243. 10942  IF F(7)=1 THEN WH=11
  244. 10944  RETURN
  245. 10945  REM SITUATION UPDATE ROUTINE
  246. 10950  TV$=TIME$:GOSUB 11555:TJ=TD-TL:TL=TD:LOCATE 1,67 :PRINT TV$
  247. 10955  IF F(9)=1 GOTO 12000
  248. 10960  IF F(0)=1 GOTO 10970
  249. 10965  GOSUB 11130:GOTO 10310
  250. 10970  IF F(4)=1 GOTO 10990
  251. 10975  F(4)=1
  252. 10980  XX=0:YY=0
  253. 10985  TX=TD:V0=0:N=1:OY=23:OX=5:WM=71
  254. 10990  REM
  255. 10995  A=(118-18*TR)*0.04028
  256. 11000  GOSUB 11190
  257. 11005  IF AL>0 GOTO 11060
  258. 11010  IF YY>10500 OR ABS(XX)>100 GOTO 11390
  259. 11015  IF FA<=0 GOTO 11100
  260. 11020  IF ZZ<150 GOTO 11385
  261. 11025  IF FA>10 GOTO 11385
  262. 11030  IF F(3)=0 GOTO 11100
  263. 11035  AL=25
  264. 11040  GOSUB 11130
  265. 11045  GOSUB 11150
  266. 11050  GOSUB 11300
  267. 11055  GOTO 10305
  268. 11060  F(9)=1
  269. 11065  GOSUB 11130
  270. 11070  GOSUB 11150
  271. 11075  GOSUB 11170
  272. 11080  FOR I=11 TO 23:LOCATE I,1:PRINT SPACE$(80);:NEXT
  273. 11085  HY=20
  274. 11090  GOSUB 10410
  275. 11095  GOTO 11115
  276. 11100  GOSUB 11130
  277. 11105  GOSUB 11300
  278. 11110  GOTO 10305
  279. 11115  REM NOW DO DEPARTURE PROCEDURES
  280. 11120  GOTO 10310
  281. 11130  REM UPDATE FUEL
  282. 11135  FU=FU-40*TJ
  283. 11140  FP=FU/3120
  284. 11145  RETURN
  285. 11150  REM UPDATE RATE OF CLIMB
  286. 11155  RC=ZZ*SIN(ABS(FA/57.3))*1.693*60
  287. 11160  IF FA<0 THEN RC=-1*RC
  288. 11165  RETURN
  289. 11170  REM UPDATE ALT
  290. 11175  AL=AL+TJ*RC/60
  291. 11180  IF AL<=0 THEN AL=0
  292. 11185  RETURN
  293. 11190  REM EQUATIONS OF MOTION
  294. 11195  T=TJ
  295. 11200  V=V0+A*T
  296. 11205  VB=(V+V0)/2:V0=V
  297. 11210  S=VB*T
  298. 11215  IF TD<(TX+18) GOTO 11235
  299. 11220  TX=TD
  300. 11225  WB=RS*INT(2*RND(1)+1)
  301. 11230  CC=CC+WB
  302. 11235  DA=(CC-75)/57.3
  303. 11240  DY=S*COS(ABS(DA))
  304. 11245  DX=S*SIN(ABS(DA))
  305. 11250  IF DA<0 THEN DX=-1*DX
  306. 11255  YY=YY+DY
  307. 11260  XX=XX+DX
  308. 11265  ZZ=V/1.69278
  309. 11270  IF ZZ>20 THEN ZZ=ZZ+WS
  310. 11275  IX=40+FIX(XX*7/20):IF IX>79 THEN IX=79
  311. 11280  IF IX<0 THEN IX=0
  312. 11285  ZP=FIX(YY-2500*(N-1))
  313. 11290  IF ZP>2500 THEN N=N+1:GOTO 11285
  314. 11295  RETURN
  315. 11300  REM VARIABLES FOR RUNWAY GRAPHICS
  316. 11305  MP=FIX(10+(13*ZP)/2500)
  317. 11310  IF N>3 GOTO 11350
  318. 11315  NY=MP
  319. 11320  J=NY-10
  320. 11325  NX=XM(J)
  321. 11330  FW=WM(J)
  322. 11335  S$=SPACE$(J)
  323. 11340  MK$=M$(N)+S$(J)+"_"+S$(J)+"_"+S$(J)+"_"+S$(J)+"_"+S$(J)+"_"
  324. 11345  RETURN
  325. 11350  REM IN ZONE 4-MARKER IS RUNWAYS EDGE
  326. 11355  NY=MP
  327. 11360  J=NY-10
  328. 11365  NX=XE(J)
  329. 11370  IF N>4 THEN RETURN
  330. 11375  MK$=STRING$(WE(J),"_")
  331. 11380  RETURN
  332. 11385  AB=1:GOTO 11415
  333. 11390  AB=2:IF YY<10500 GOTO 11415
  334. 11395  FOR I=11 TO 23
  335. 11400  LOCATE I,1:PRINT SPACE$(80);
  336. 11405  NEXT I
  337. 11410  GOTO 11415
  338. 11415  REM ABORT
  339. 11420  FOR I=11 TO 23
  340. 11425  LOCATE I,1:COLOR 0,7:PRINT SPACE$(80);
  341. 11430  NEXT I
  342. 11435  LOCATE 11,30:PRINT"*** TAKEOFF FAILED***":PRINT:PRINT
  343. 11440  ON AB GOSUB 11455,11480
  344. 11445  LOCATE 20,35:COLOR 7,0:PRINT"END OF PROGRAM";
  345. 11450  END
  346. 11455  PRINT" YOU PULLED BACK ON THE STICK AT TOO SLOW A SPEED, OR YOU"
  347. 11460  PRINT" PULLED BACK THE STICK TOO FAR WHEN AT PROPER SPEED."
  348. 11465  PRINT" AS A RESULT THE TAIL END OF THE FUSELAGE SCRAPED THE RUNWAY"
  349. 11470  PRINT" AND THE AIRCRAFT SPUN OUT OF CONTROL."
  350. 11475  RETURN
  351. 11480  IF YY>10500 GOTO 11505
  352. 11485  PRINT" YOU FAILED TO STAY WITHIN THE RUNWAY BOUNDARIES."
  353. 11490  PRINT" AS A RESULT YOU VEERED OFF THE RUNWAY AND COLLIDED WITH"
  354. 11495  PRINT" THE RUNWAY LIGHTS."
  355. 11500  RETURN
  356. 11505  PRINT" YOU RAN OUT OF RUNWAY. AS A RESULT YOU ROLLED INTO THE "
  357. 11510  PRINT" MARSHLANDS LOCATED";FIX(YY)-10500;"FEET PAST THE END OF THE RUNWAY."
  358. 11515  IF F(3)=1 THEN RETURN
  359. 11520  PRINT:PRINT:PRINT" YOU FORGOT TO LOWER THE FLAPS."
  360. 11525  PRINT" AS A RESULT THE AIRCRAFT COULD NOT DEVELOP SUFFICIENT LIFT."
  361. 11530  RETURN
  362. 11535  REM TIME DELAY PAD
  363. 11540  FOR I=1 TO TQ
  364. 11545  NEXT I
  365. 11550  RETURN
  366. 11555  REM CONVERT RTC TO TIME OF DAY IN SECONDS ABSOLUTE
  367. 11560  J=7
  368. 11565  FOR I=0 TO 2
  369. 11570  TC$(I)=MID$(TV$,J,2)
  370. 11575  J=J-3
  371. 11580  TC(I)=VAL(TC$(I))
  372. 11585  TD=(3600*TC(2))+(60*TC(1))+TC(0)
  373. 11590  NEXT I
  374. 11595  RETURN
  375. 11600  REM PLOTS VARIABLE ON REVERSE BACKGROUND
  376. 11605  LOCATE (YP+1),(XP+1): COLOR 0,7 : PRINT "";
  377. 11610  PRINT USING F$;V1;
  378. 11615  PRINT "" : COLOR 7,0
  379. 11620  RETURN
  380. 12000  REM DEPARTURE ROUTINE
  381. 12010  IF F(7)=1 GOTO 12025 ELSE F(7)=1
  382. 12015  GOSUB 10340
  383. 12020  F(2)=0
  384. 12025  IF WH<>11 GOTO 12040 ELSE ZZ=ZZ+5
  385. 12030  IF BR<>11 GOTO 12040 ELSE ZZ=ZZ+5
  386. 12035  IF TR=4 AND AL>1800 THEN CHAIN"OJETCRUZ" ELSE GOTO 12090
  387. 12040  IF AL<1200 GOTO 12090
  388. 12042  LOCATE 13,1:PRINT"********** FLIGHT ABORTED **********"
  389. 12044  PRINT:PRINT
  390. 12046  PRINT"YOU FAILED TO PERFORM CRUCIAL TRIM MANEUVERS FOLLOWING LIFTOFF"
  391. 12048  PRINT"THE PROPER TRIM SEQUENCE,WHICH MUST BE COMPLETED BELOW 1200 FEET, IS AS FOLLOWS:"
  392. 12050  PRINT"   1-RAISE LANDING GEAR"
  393. 12052  PRINT"   2-RETRACT FLAPS"
  394. 12054  PRINT"   3-REDUCE THRUST"
  395. 12056  PRINT
  396. 12058  PRINT" ---------- END OF PROGRAM ---------- "
  397. 12060  END
  398. 12090  GOSUB 11130
  399. 12092  GOSUB 11150
  400. 12094  GOSUB 11170
  401. 12099  GOTO 10310
  402. 13000  REM END OF LISTING
  403.